﻿Public Class source
    Public id As Integer
    Public nom As String

    Public Sub New()

    End Sub

    Public Sub New(ByVal id As Integer, ByVal nom As String)
        Me.id = id
        Me.nom = nom
    End Sub

    Public Sub New(ByVal srcSour As source)
        Me.id = srcSour.id
        Me.nom = srcSour.nom
    End Sub
End Class
